home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / RBBSANS.LIT < prev    next >
Text File  |  1990-01-13  |  1KB  |  49 lines
  1. *[RBBSANS.LIT]****************************************************************
  2. * Description: Removes RBBS-PC modem answering support.                      *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: RBBSANS = OFF                                            *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 235 ZEightBit = ZTrue
  9.     ZSubParm = -10
  10.     CALL Carrier
  11.     IF ZSubParm = 0 AND _
  12.        ZExitToDoors THEN _
  13.        CALL ReadProf : _
  14.        ZSubParm = 1 : _
  15.        GOTO 335
  16.     IF ZSubParm = 0 AND _
  17.        ZExpectActiveModem THEN _
  18.        ZBaudTest! = VAL(ZNetBaud$) : _                               ' KG090102
  19.        CALL TestRel (ZNetReliable$) : _
  20.        GOTO 328
  21.     IF ZExpectActiveModem OR _
  22.        ZExitToDoors THEN _
  23.        ZSubParm = 4 : _
  24.        EXIT SUB
  25. 236
  26. 237
  27. 239
  28. 240
  29. 245 '
  30. 247
  31. 250
  32. 260
  33. 265
  34. 266
  35. 270
  36. 274
  37. 276
  38. 290
  39. 291
  40. 292
  41. 293
  42. 300
  43. 305
  44. 310
  45. 320 '
  46. 321
  47. 322
  48. 323
  49.